﻿#Region "Option / Imports"
Option Explicit On      'Must declare variables before using them
Option Strict On        'Must perform explicit data type conversions
#End Region 'Option / Imports

Public Class Inventory_InventoryItemReadFromFile_EventArgs
    Inherits System.EventArgs
    Private mInventoryItem As InventoryItem

    Private Property _InventoryItem As InventoryItem
        Get
            Return mInventoryItem
        End Get
        Set(pValue As InventoryItem)
            mInventoryItem = pValue
        End Set
    End Property

    Public Sub New(ByVal pInventoryItem As InventoryItem)
        MyBase.New()
        _InventoryItem = pInventoryItem
    End Sub

    Public Overrides Function ToString() As String
        Dim tmpStr As String

        tmpStr = _
            "( INVENTORY INVENTORYITEM_READ_FROM_FILE EVENT_ARGS: " _
            & "Inventory = " & _InventoryItem.ToString _
            & " )"

        Return tmpStr
    End Function
End Class
